PC Gamer (Italian) 31/PC Gamer IT CD 31 2-2.iso/utility/MIDWV221/MidWavi.Exe/0/RCDATA/TFORM9/TFORM9.txt

Text File | 1998-04-08 | 12KB | 507 lines

object Form9: TForm9
  Left = 145
  Top = 81
  Hint = 'Right button to display current filename'
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'MidWavi Graphics Viewer'
  ClientHeight = 392
  ClientWidth = 521
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Position = poScreenCenter
  Scaled = False
  ShowHint = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  OnMouseDown = FormMouseDown
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 521
    Height = 392
    Hint = 'Left button for previous - Right for next'
    Align = alClient
    ParentShowHint = False
    ShowHint = True
    Stretch = True
    Transparent = True
    Visible = False
    OnClick = Image1Click
    OnDblClick = Image1DblClick
    OnMouseDown = Image1MouseDown
  end
  object Label1: TLabel
    Left = 82
    Top = 292
    Width = 245
    Height = 15
    Alignment = taCenter
    AutoSize = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object ListBox1: TRzCheckList
    Left = 16
    Top = 8
    Width = 313
    Height = 273
    Hint = 'Double Click or hit ENTER to play a hi-lighted file'
    AllowGrayed = False
    OnChanging = ListBox1Changing
    Color = clBtnFace
    ItemHeight = 16
    TabOrder = 4
    Visible = False
    OnClick = ListBox1Click
    OnDblClick = ListBox1DblClick
    OnKeyDown = ListBox1KeyDown
    OnKeyPress = ListBox1KeyPress
    OnMouseDown = ListBox1MouseDown
  end
  object Panel1: TPanel
    Left = 344
    Top = 8
    Width = 167
    Height = 377
    Hint = 'Right button to display current filename'
    TabOrder = 0
    OnMouseDown = Panel1MouseDown
    object Label3: TLabel
      Left = 98
      Top = 224
      Width = 46
      Height = 12
      Alignment = taCenter
      AutoSize = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Bevel1: TBevel
      Left = 98
      Top = 223
      Width = 52
      Height = 17
    end
    object Button1: TButton
      Left = 16
      Top = 8
      Width = 136
      Height = 27
      Caption = 'Select Files F&or Display'
      TabOrder = 0
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 16
      Top = 40
      Width = 63
      Height = 27
      Hint = 'Play starting from hi-lighted selection'
      Caption = '&Display'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = Button2Click
    end
    object BitBtn1: TBitBtn
      Left = 89
      Top = 342
      Width = 63
      Height = 27
      Caption = 'E&xit'
      TabOrder = 2
      OnClick = BitBtn1Click
      Kind = bkClose
    end
    object Button3: TButton
      Left = 16
      Top = 276
      Width = 136
      Height = 27
      Caption = 'Return To &CD Player'
      TabOrder = 3
      OnClick = Button3Click
    end
    object Button4: TButton
      Left = 16
      Top = 309
      Width = 136
      Height = 27
      Caption = 'AVI-MID-&WAV Player'
      TabOrder = 4
      OnClick = Button4Click
    end
    object RadioGroup1: TRadioGroup
      Left = 15
      Top = 100
      Width = 137
      Height = 65
      Hint =
        'Display graphic at its original size, or resize to fill window (' +
        'hit Esc to exit)'
      Items.Strings = (
        'A&llow original size'
        'Re-si&ze to fit window'
        'Re-s&ize to fill screen')
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      OnClick = RadioGroup1Click
    end
    object Button5: TButton
      Left = 16
      Top = 190
      Width = 136
      Height = 26
      Caption = '&Find all BMP'#39's on drive'
      TabOrder = 6
      OnClick = Button5Click
      OnKeyPress = Button5KeyPress
    end
    object CheckBox2: TCheckBox
      Left = 17
      Top = 223
      Width = 73
      Height = 17
      Hint = 'Display all selected graphics one after the other'
      Caption = 'Slide S&how'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      OnClick = CheckBox2Click
    end
    object Button6: TButton
      Left = 16
      Top = 75
      Width = 63
      Height = 27
      Caption = '&Next'
      Enabled = False
      TabOrder = 8
      OnClick = Button6Click
    end
    object Button7: TButton
      Left = 89
      Top = 75
      Width = 63
      Height = 27
      Caption = 'Pre&vious'
      Enabled = False
      TabOrder = 9
      OnClick = Button7Click
    end
    object CheckBox1: TCheckBox
      Left = 17
      Top = 251
      Width = 65
      Height = 17
      Hint = 'Reduce display to the size of these controls'
      Caption = 'Co&mpact'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 10
      OnClick = CheckBox1Click
    end
    object ComboBox1: TComboBox
      Left = 103
      Top = 168
      Width = 49
      Height = 21
      Style = csDropDownList
      Color = clNavy
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 13
      ParentFont = False
      TabOrder = 11
      OnChange = ComboBox1Change
      OnExit = ComboBox1Exit
    end
    object DriveComboBox1: TDriveComboBox
      Left = 16
      Top = 169
      Width = 57
      Height = 19
      Color = clNavy
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 12
      TextCase = tcUpperCase
      OnChange = DriveComboBox1Change
    end
    object CheckBox3: TCheckBox
      Left = 88
      Top = 251
      Width = 62
      Height = 17
      Hint =
        'Contain graphic within this window with controls both visable an' +
        'd useable'
      Caption = 'TV Mod&e'
      ParentShowHint = False
      ShowHint = True
      State = cbChecked
      TabOrder = 13
      OnClick = CheckBox3Click
    end
    object Button12: TButton
      Left = 89
      Top = 40
      Width = 63
      Height = 25
      Caption = '&Stop'
      Enabled = False
      TabOrder = 14
      OnClick = Button12Click
    end
    object Button16: TButton
      Left = 16
      Top = 342
      Width = 63
      Height = 27
      Hint = 'Redraw graphic to clear garbage from a previous display'
      Caption = '&Refresh'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 15
      OnClick = Button16Click
    end
  end
  object Panel2: TPanel
    Left = 8
    Top = 312
    Width = 329
    Height = 33
    Hint = 'Control look and size of filename details etc'
    ParentShowHint = False
    ShowHint = True
    TabOrder = 1
    Visible = False
    object Button10: TButton
      Left = 9
      Top = 7
      Width = 44
      Height = 18
      Caption = 'Normal'
      TabOrder = 0
      OnClick = Button10Click
    end
    object Button11: TButton
      Left = 55
      Top = 7
      Width = 44
      Height = 18
      Caption = 'Bold'
      TabOrder = 1
      OnClick = Button11Click
    end
    object Button13: TButton
      Left = 100
      Top = 7
      Width = 44
      Height = 18
      Caption = 'Default'
      TabOrder = 2
      OnClick = Button13Click
    end
    object Button14: TButton
      Left = 153
      Top = 7
      Width = 27
      Height = 18
      Caption = 'Min'
      TabOrder = 3
      OnClick = Button14Click
    end
    object Button15: TButton
      Left = 180
      Top = 7
      Width = 27
      Height = 18
      Caption = 'Max'
      TabOrder = 4
      OnClick = Button15Click
    end
    object Button8: TButton
      Left = 218
      Top = 7
      Width = 25
      Height = 18
      Caption = '-'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      OnClick = Button8Click
    end
    object Button9: TButton
      Left = 243
      Top = 7
      Width = 25
      Height = 18
      Caption = '+'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
      OnClick = Button9Click
    end
    object RzColorComboBox1: TRzColorComboBox
      Left = 276
      Top = 6
      Width = 43
      Height = 22
      Hint = 'Change Font colour - Right click to set custom Font colour'
      About = aiRaizeComponents
      DefaultColor = clBlue
      SelectedColor = clBlue
      ShowSysColors = False
      TabOrder = 7
      OnChange = RzColorComboBox1Change
      OnCloseUp = RzColorComboBox1CloseUp
    end
  end
  object Panel3: TPanel
    Left = 8
    Top = 352
    Width = 329
    Height = 33
    TabOrder = 2
    Visible = False
    object Label2: TLabel
      Left = 56
      Top = 12
      Width = 153
      Height = 13
      AutoSize = False
      Caption = 'Delay for Slide Show (1-20 secs)'
      OnClick = Label2Click
    end
    object Edit1: TEdit
      Left = 214
      Top = 5
      Width = 26
      Height = 24
      Hint = 'Enter figure (1 to 20) to set delay per second for slide show'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      MaxLength = 2
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      Text = '4'
      OnChange = Edit1Change
      OnExit = Edit1Exit
    end
    object TrackBar1: TTrackBar
      Left = 245
      Top = 8
      Width = 79
      Height = 22
      Hint = 'Use mouse or cursor keys to set delay per second for slide show'
      Max = 20
      Min = 1
      Orientation = trHorizontal
      ParentShowHint = False
      PageSize = 1
      Frequency = 1
      Position = 4
      SelEnd = 0
      SelStart = 0
      ShowHint = True
      TabOrder = 1
      TickMarks = tmBottomRight
      TickStyle = tsAuto
      OnChange = TrackBar1Change
    end
    object Button18: TButton
      Left = 6
      Top = 5
      Width = 44
      Height = 23
      Caption = '&Print'
      TabOrder = 2
      OnClick = Button18Click
    end
  end
  object Animate1: TAnimate
    Left = 64
    Top = 80
    Width = 89
    Height = 81
    Hint = 'Hit Esc to abort search'
    Active = False
    ParentShowHint = False
    ShowHint = True
    StartFrame = 2
    Visible = False
  end
  object Button17: TButton
    Left = 16
    Top = 288
    Width = 62
    Height = 19
    Hint = 'To filter file types from selected list'
    Caption = 'Su&b Select'
    TabOrder = 5
    Visible = False
    OnClick = Button17Click
  end
  object MediaPlayer1: TMediaPlayer
    Left = 512
    Top = 48
    Width = 253
    Height = 30
    Enabled = False
    Visible = False
    TabOrder = 6
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Windows BMP|*.BMP|Windows Icon|*.ICO|Windows Metafile|*.WMF'
    Options = [ofHideReadOnly, ofAllowMultiSelect]
    Left = 120
    Top = 384
  end
  object PrintDialog1: TPrintDialog
    Left = 280
    Top = 384
  end
end